home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / Libraries / SAT / SATcollision ƒ / sMrEgghead.p < prev   
Encoding:
Text File  |  1993-09-19  |  779 b   |  43 lines  |  [TEXT/PJMM]
  1. { Player sprite for SATcollision }
  2.  
  3. unit sMrEgghead;
  4.  
  5. interface
  6.  
  7.     uses
  8.         SAT;
  9.  
  10.     var
  11.         MrEggheadFaces: array[0..3] of FacePtr;
  12.  
  13.     procedure initMrEgghead;
  14.     procedure SetupMrEgghead (me: SpritePtr);
  15.     procedure HandleMrEgghead (me: SpritePtr);
  16.  
  17. implementation
  18.  
  19.     procedure initMrEgghead;
  20.         var
  21.             i: integer;
  22.     begin
  23.         for i := 0 to 3 do
  24.             MrEggheadFaces[i] := GetFace(128 + i);
  25.     end;
  26.  
  27.     procedure SetupMrEgghead (me: SpritePtr);
  28.     begin
  29.         me^.mode := 0;
  30.         me^.speed.h := 1;
  31.         me^.kind := 1; {"Friend" kind - positive so it can collide with apples, which have negative kind.}
  32.         SetRect(me^.hotRect, 0, 0, 32, 32);
  33.     end;
  34.  
  35.     procedure HandleMrEgghead (me: SpritePtr);
  36.     begin
  37.         GetMouse(me^.position);
  38.  
  39.         me^.mode := (me^.mode + 1) mod 4;
  40.         me^.face := MrEggheadFaces[me^.mode];
  41.     end;
  42.  
  43. end.